.\" -*- nroff -*-
.\"
.\"	@(#)e.tmac	2.31 (Berkeley) 5/21/88
.\"	Modified by James Clark for use with groff.
.\"
.\" Copyright (c) 1988 Regents of the University of California.
.\" All rights reserved.
.\"
.\" Redistribution and use in source and binary forms are permitted
.\" provided that this notice is preserved and that due credit is given
.\" to the University of California at Berkeley. The name of the University
.\" may not be used to endorse or promote products derived from this
.\" software without specific prior written permission. This software
.\" is provided ``as is'' without express or implied warranty.
.do nr need_eo_h 0
.do nr need_eo_tl 0
.do nr need_tl 1
.do mso devtag.tmac
.if !\n(.g .ig
.de @R
.if !r\\$1 .nr \\$1 0
..
.de @html_check_need_title
.do if (\\n[need_eo_tl] == 1) \
\{\
.do nr need_eo_tl 0
.do DEVTAG-EO-TL
.\}
.do if (\\n[need_tl] == 1) \
\{\
.do DEVTAG-TL
.do nr need_tl 0
.do nr need_eo_tl 1
.\}
.do if \\n[need_eo_h]>0 .do DEVTAG-EO-H
.do nr need_eo_h 0
..
.de @check_need_title
..
.ie '\*(.T'html' \
.do als check_need_title @html_check_need_title
.el \
.do als check_need_title @check_need_title
.@R pf
.if \n(pf .nx
.if !\n(.g .ig
.de @S
.if !d\\$1 .ds \\$1 
..
.@R @
.de @C
.nr _S \\n(.s
.nr _V \\n(.v
.nr _F \\n(.f
.nr _J \\n(.j
.do ds _A \\n[.fam]
.nr _I \\n(.i
.ev \\$1
.ps \\n(_S
.vs \\n(_Vu
.ft \\n(_F
.ad \\n(_J
.do @fam \\*(_A
'in \\n(_Iu
.xl \\n($lu
.lt \\n($lu
.rr _S
.rr _V
.rr _F
.rr _I
.rr _J
.ls 1
'ce 0
..
.de @D
.ds |p "\\$3
.nr _d 0
.if "\\$2"C" \
.nr _d 1
.if "\\$2"L" \
.nr _d 2
.if "\\$2"I" \
.nr _d 3
.if "\\$2"M" \
.nr _d 4
.if !\\n(_d \
\{\
.nr _d \\$1
.ds |p "\\$2
.\}
..
.de @z
.if \n@>1 .tm >> @z, .z=\\n(.z ?a=\\n(?a
.if !"\\n(.z"" \
\{\
.tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
.di
.ex
.\}
.if \\n(?a \
.bp
.ds bp
.ds @b
.br
.if \n@>1 .tm << @z
..
.ie \n(.g .ds $* \\\\$*
.el .ds $* \\\\$1 \\\\$2 \\\\$3 \\\\$4 \\\\$5 \\\\$6 \\\\$7 \\\\$8 \\\\$9
.de he
.ie !\\n(.$ \
\{\
.rm |4
.rm |5
.\}
.el \
\{\
.ds |4 "\*($*
.ds |5 "\*($*
.\}
..
.de eh
.ie !\\n(.$ \
.rm |4
.el \
.ds |4 "\*($*
..
.de oh
.ie !\\n(.$ \
.rm |5
.el \
.ds |5 "\*($*
..
.de fo
.ie !\\n(.$ \
\{\
.rm |6
.rm |7
.\}
.el \
\{\
.ds |6 "\*($*
.ds |7 "\*($*
.\}
..
.de ef
.ie !\\n(.$ \
.rm |6
.el \
.ds |6 "\*($*
..
.de of
.ie !\\n(.$ \
.rm |7
.el \
.ds |7 "\*($*
..
.de ep
.if \\n(nl>0 \
\{\
.wh 0
.rs
.@b
.\}
..
.de @h
.if \n@>1 .tm >> @h %=\\n% ?a=\\n(?a ?b=\\n(?b ?w=\\n(?w
.if (\\n(.i+\\n(.o)>=\\n(.l \
.tm Line \\n(c. -- Offset + indent exceeds line length
.nr ?h \\n(?H
.nr ?H 0
.nr ?c \\n(?C
.nr ?C 0
.rn |4 |0
.rn |5 |1
.rn |6 |2
.rn |7 |3
.nr _w 0
.nr ?W 0
.nr ?I 1
.ev 2
.rs
.if \\n(hm>0 \
.if !'\*(.T'html' \
.sp |\\n(hmu
.@t $h
.if \\n(tm<=0 \
.nr tm \n(.Vu
.if !'\*(.T'html' \
.sp |\\n(tmu
.ev
.mk _k
.if \\n(?n=1 .nm 1
.nr $c 1
.if \n@>4 .tm -- @h >> .ns nl=\\n(nl %=\\n% _k=\\n(_k tm=\\n(tm
.ie \\n(?s \
\{\
.nr ?s 0
.rs
'	@b
.\}
.el \
.@n
.if \n@>2 .tm << @h
..
.de @n
.if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o
.if \\n(bm<=0 \
.nr bm \\n(.Vu
.if (\\n(_w<=\\n($l)&(\\n(?W=0) \
\{\
.nr _b (\\n(ppp*\\n($vu)/200u
.if \\n(_bu>((\\n(bmu-\\n(fmu-((\\n(tpp*\\n($vu)/100u))/2u) \
.nr _b (\\n(ppp*\\n($vu)/100u-\n(.Vu
.nr _b +\\n(bmu
.\}
.nr _B \\n(_bu
.ch @f
.wh -\\n(_bu @f
.nr _b +(\\n(ppp*\\n($vu)/100u
.if \n@>2 .tm @n .p=\\n(.p bm=\\n(bm _b=\\n(_b _B=\\n(_B
.nr ?f 0
.if \\n(?o \
\{\
.(f _
.nf
.|o
.fi
.)f
.rm |o
.\}
.nr ?o 0
.if \\n(?T \
\{\
.nr _i \\n(.i
.if \\n(?n \
.nm \\n(ln
.in 0
.|h
.in \\n(_iu
.if \\n(?n \
.nm
.rr _i
.mk #T
.ns
.\}
.if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
\{\
.nr ?a 0
.@k |t
.if \\n(?w \
.mk _k
.nr ?w 0
.\}
.os
.$H
.ns
..
.de @f
.if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b ?f=\\n(?f
.if \n@>2 .nr VL \\n(.pu-\\n(nlu
.if \n@>2 .tm @f bm=\\n(bm _B=\\n(_B _b=\\n(_b .p-nl=\\n(VL
.ec
.if \\n(?T \
\{\
.nr T. 1
.T# 1
.br
.\}
.ev 2
.ce 0
.if \\n(?b \
\{\
.nr ?b 0
.@k |b
.\}
.if \\n(?f \
.@o
.ie \\n($c<\\n($m \
.@c
.el \
.@e
.ev
.if \n@>2 .tm << @f
..
.de @o
.nf
.ls 1
.in 0
.if \n@>2 .tm @o last printed text = \\n(nl placing @r trap at -\\n(_B
.wh -\\n(_Bu @r
.if \\n(?n \
.nm \\n(ln
.|f
.if \\n(?n \
.nm
.fi
.if \n@>2 .tm @o triggered @r (?o) = \\n(?o
.if \\n(?o \
\{\
.di
.if \\n(dn=0 \
\{\
.rm |o
.nr ?o 0
.\}
.nr dn \\n(_D
.rr _D
.\}
.rm |f
.ch @r
..
.de @c
.if \n@>2 .tm	>> @c %=\\n%
.rs
.sp |\\n(_ku
.@O +\\n($lu+\\n($su
.nr $c +1
.@n
..
.de @e
.if \n@>2 .tm	>> @e
.@O \\n(_ou
.rs
.sp |\\n(.pu-\\n(fmu-((\\n(tpp*\\n($vu)/100u)
.@t $f
.nr ?h 0
.bp
..
.de @t
.if !\\n(?h \
\{\
.sz \\n(tp
.@F \\n(tf
.lt \\n(_Lu
.if \\n(?n \
.nm \\n(ln
.nf
.\\$1
.br
.if \\n(?n \
.nm
.\}
..
.de $h
.ds |z
.if !\\n(?c \
\{\
.if e .ds |z "\\*(|0
.if o .ds |z "\\*(|1
.\}
.if !\(ts\\*(|z\(ts\(ts \
'	tl \\*(|z
.rm |z
..
.de $f
.ds |z
.if \\n(?c \
\{\
.if e .ds |z "\\*(|0
.if o .ds |z "\\*(|1
.\}
.if \(ts\\*(|z\(ts\(ts \
\{\
.if e .ds |z "\\*(|2
.if o .ds |z "\\*(|3
.\}
.if !\(ts\\*(|z\(ts\(ts \
'	tl \\*(|z
.rm |z
..
.de @r
.if \n@>3 .tm		>> @r .z=\\n(.z ?f=\\n(?f ?a=\\n(?a ?b=\\n(?b _b=\\n(_b
.di |o
.nr ?o 1
.nr _D \\n(dn
.ns
..
.if !'\*(.T'html' .rn bp @b
.de bp
.nr $c \\n($m
.ie \\n(nl>0 \
.@b \\$1
.el \
\{\
.if \\n(.$>0 \
.pn \\$1
.if \\n(?I \
.@h
.\}
.br
.wh 0 @h
..
.rn ll xl
.de ll
.xl \\$1
.lt \\$1
.nr $l \\n(.l
.if (\\n($m<=1):(\\n($l>\\n(_L) \
.nr _L \\n(.l
..
.rn po @O
.de po
.@O \\$1
.nr _o \\n(.o
..
.if !\n(.g .ig
.do rn fam @fam
.do de fam
.do @fam \\$1
.ev 2
.do @fam \\$1
.ev
..
.de hx
.nr ?H 1
..
.de ix
'in \\$1
..
.de bl
.br
.@s \\$1
.sp \\$1
..
.de @s
.ne \\$1
.rs
.if !'\\n(.z'' \!.@s \\$1
..
.de n1
.nm 1
.ll -\w'0000'u
.nr ?n 1
..
.de n2
.ie \\n(.$ \
\{\
.ie !`\\$2`c` \
.po -\w'0000'u
.el \
.ll -\w'0000'u
.ie \\B`\\$1` \
\{\
.ds |i \\$1
.ds |j \\$1
.do substring |i 0 0
.do substring |j 1
.ie `\\*(|i`+` \
.nr ln (\\n[_ln])+\\*(|j
.el \
.ie `\\*(|i`-` \
.nr ln (\\n[_ln])-\\*(|j
.el \
.nr ln \\$1
.nm \\n(ln
.nr ?n 2
.rm |i |j
.\}
.el \
.tm Line \\n(.c -- Bad .n2 value
.\}
.el \
\{\
.nm
.nr _ln \\n(ln
.po +\w'0000'u
.ll \\n($lu
.nr ?n 0
.nr ln 0
.\}
..
.de pa
.bp \\$1
..
.de ro
.af % i
..
.de ar
.af % 1
..
.de m1
.nr _0 \\n(hmu
.nr hm \\$1v
.nr tm +\\n(hmu-\\n(_0u
.rr _0
..
.de m2
.nr tm \\n(hmu+\\n(tpp+\\$1v
..
.de m3
.nr bm \\n(fmu+\\n(tpp+\\$1v
..
.de m4
.nr _0 \\n(fmu
.nr fm \\$1v
.nr bm +\\n(fmu-\\n(_0u
..
.de sk
.if \\n(.$>0 \
.tm Line \\n(c. -- I cannot skip multiple pages
.nr ?s 1
..
.if !\n(.g .ig
.de re
.ta T 0.5i
..
.if \n(.g .ig
.de re
.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
..
.de ba
.ie \\n(.$ \
.nr $i \\$1n
.el \
.nr $i \\n(siu*\\n($0u
..
.de hl
.br
.if '\*(.T'html' \
\{\
.HR
.do return
.\}
.ie \n(.g .do nr _I \\n[.in]
.el .nr _I \\n(.i
\l'\\n(.lu-\\n(_Iu'
.sp
..
.de pp
.lp \\n(piu
..
.de lp
.@p
.if \\n(.$ \
.ti +\\$1
.nr $p 0 1
..
.de ip
.if (\\n(ii>0)&(\\n(ii<1n) \
.nr ii \\n(iin
.nr _0 \\n(ii
.if \\n(.$>1 \
.nr _0 \\$2n
.@p \\n(_0u
.nr _I \\n(.iu
.in 0
.di |i
\&\\$1
.br
.di
.in \\n(_Iu
.ds |j \\*(|i\\
.ie \\w"\\*(|j" \
\{\
.ti -\\n(_0u
.ie \\w"\\*(|j">=\\n(_0 \
\{\
.do DEVTAG-COL 1
\\*(|j
.do DEVTAG-COL-NEXT 2
.br
.\}
.el \
\{\
.do DEVTAG-COL 1
\\*(|j\h'|\\n(_0u'\c
.do DEVTAG-COL 2
.\}
.\}
.el .do DEVTAG-COL 2
.rr _0
.rm |i |j
..
.de np
.if '\\n($p'-1' \
.nr $p 0
.nr $p +1
.@p \w'\0(000)\0'u
.ti -\w'\0(000)\0'u
\0(\\n($p)\h'|\w'\0(000)\0'u'\c
..
.de bu
.br
.if '\\n($p'-1' \
.ns
.nr $p 0-1
.@p \w'\0\(bu\0'u
.ti -\w'\0\(bu\0'u
\0\(bu\0\c
..
.de @p
.do check_need_title
.if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
.in \\n($iu+\\n(pou
.if \\n(.$ \
.in +\\$1n
.ce 0
.fi
.@F \\n(pf
.sz \\n(pp
.sp \\n(psu
.ne \\n(.Lv+\\n(.Vu
.ns
..
.de sh
.fi
.do check_need_title
.if (\\n(si>0)&(\\n(si<1n) \
.nr si \\n(sin
.if '\*(.T'html' .nr si 0
.ce 0
.if '\*(.T'html' \
\{\
.do DEVTAG-SH \\$1
.do nr need_eo_h 1
.\}
.@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
.if !"\\$2"_" \
\{\
.ds |n \&\\$2
.$p "\\*(|n" "\\*($n" \\n($0
.$0 "\\*(|n" "\\*($n" \\n($0
.rm |n
.\}
.nr $p 0 1
..
.de @d
.if !""\\$1" \
.nr $0 \\$1
.if \\n($0&(\\n(.$>1) \
.nr $\\n($0 \\$2
.ds $n \&
.ie \\n($0>=1 \
\{\
.if '\\n($1'0' \
.nr $1 1
.if (\\n(.$>=3) .if !"\\$3"-" \
.nr $1 \\$3
.as $n \\n($1
.\}
.el \
.nr $1 0
.ie \\n($0>=2 \
\{\
.if '\\n($2'0' \
.nr $2 1
.if (\\n(.$>=4) .if !"\\$4"-" \
.nr $2 \\$4
.as $n .\\n($2
.\}
.el \
.nr $2 0
.ie \\n($0>=3 \
\{\
.if '\\n($3'0' \
.nr $3 1
.if (\\n(.$>=5) .if !"\\$5"-" \
.nr $3 \\$5
.as $n .\\n($3
.\}
.el \
.nr $3 0
.ie \\n($0>=4 \
\{\
.if '\\n($4'0' \
.nr $4 1
.if (\\n(.$>=6) .if !"\\$6"-" \
.nr $4 \\$6
.as $n .\\n($4
.\}
.el \
.nr $4 0
.ie \\n($0>=5 \
\{\
.if '\\n($5'0' \
.nr $5 1
.if (\\n(.$>=7) .if !"\\$7"-" \
.nr $5 \\$7
.as $n .\\n($5
.\}
.el \
.nr $5 0
.ie \\n($0>=6 \
\{\
.if '\\n($6'0' \
.nr $6 1
.if (\\n(.$>=8) .if !"\\$8"-" \
.nr $6 \\$8
.as $n .\\n($6
.\}
.el \
.nr $6 0
..
.de sx
.ce 0
.ul 0
.nr _0 \\n($0-1
.if \\n(.$ .nr _0 +1
.if \\n(.$ .nr _0 \\$1
.@d \\n(_0
.rr _0
.$p "" "" \\n($0
.nr $p 0 1
..
.de uh
.$p "\\$1"
.$0 "\\$1"
..
.de $p
.if (\\n(si>0)&(\\n(.$>2) \
.nr $i \\$3*\\n(si
.in \\n($iu
.ie !"\\$1\\$2"" \
\{\
.sp \\n(ssu
.ne \\n(.Lv+\\n(.Vu+\\n(psu+((\\n(spp*\\n($vu*\\n(.Lu)/100u)
.ie 0\\$3 \
.ti -(\\n(siu-\\n(sou)
.el \
.ti +\\n(sou
.@F \\n(sf
.sz \\n(sp
.if 0\\$3 \
.$\\$3
.if \w"\\$2">0 \\$2.
.if \w"\\$1">0 \\$1\f1\ \ \&
.\}
.el \
.sp \\n(psu
.@F \\n(pf
.sz \\n(pp
..
.de 2c
.br
.if \\n($m>1 \
.1c
.nr $c 1
.nr $m 2
.if \\n(.$>1 \
.nr $m \\$2
.if \\n(.$>0 \
.nr $s \\$1n
.nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
.xl \\n($lu
.mk _k
.ns
..
.de 1c
.br
.nr $c 1
.nr $m 1
.ll \\n(_Lu
.sp |\\n(.hu
.@O \\n(_ou
..
.de bc
.sp 24i
..
.de (z
.if \n@>4 .tm >> (z, .z=\n(.z
.@D 4 \\$1 \\$2
.@(
..
.de )z
.if \n@>4 .tm >> )z, .z=\n(.z
.sp \\n(zsu
.@)
.if \n@>4 .tm -- )z << @), .z=\n(.z
.rr _0
.if !\\n(?b \
.nr dn +(\\n(ppp*\\n($vu)/200u+\\n(zsu
.nr dl -\n(.H
.ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
\{\
.nr ?a 1
.if (\\n(dl>\\n($l)&(\\n($m>1) \
.nr ?w 1
.ds |x |t
.\}
.el \
\{\
.nr ?b 1
.if (\\n(dl>\\n($l)&(\\n($m>1) \
.nr ?W 1
.nr _b +\\n(dnu
.if \\n(.p-\\n(nl-\n(.V<\\n(_b \
.nr _b \\n(.p-\\n(nl-\n(.V
.ch @f -\\n(_bu
.ds |x |b
.\}
.da \\*(|x
.nf
.ls 1
.nr ?k 1
.if \n@>4 .tm -- )z >> \\*(|x
\!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
.|k
.ec
.if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
.nr ?k 0
.rm |k
.da
.in 0
.ls 1
.xl \\n($lu
.ev
.if \n@>4 .tm << )z, .z=\\n(.z
..
.de @k
.if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
.ev 1
.nf
.ls 1
.in 0
.sp \\n(zsu
.if \\n(?n \
.nm \\n(ln
.\\$1
.if \\n(?n \
.nm
.ec
.br
.rm \\$1
.ev
..
.de (t
.(z \\$1 \\$2
..
.de )t
.)z \\$1 \\$2
..
.de (b
.br
.@D 3 \\$1 \\$2
.sp \\n(bsu
.@(
.if '\*(.T'html' .sp \\n(bsu
..
.de )b
.br
.@)
.if (\\n(bt=0):(\\n(.t<\\n(bt) \
.ne \\n(dnu
.@k |k
.ev
.sp \\n(bsu+\\n(.Lv-1v
..
.de @(
.if !"\\n(.z"" .tm Line \\n(c. -- Invalid nested keep \\n(.z
.@M
.di |k
\!'rs
..
.de @M
.nr ?k 1
.@C 1
.@F \\n(df
.if \\n($R .@V
.vs \\n(.sp*\\n($Vu/100u
.nf
.if "\\*(|p"F" \
.fi
.if \\n(_d=4 \
.in 0
.if \\n(_d=3 \
\{\
.in +\\n(biu
.xl -\\n(biu
.\}
.if \\n(_d=1 \
.ce 10000
..
.de @)
.br
.if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
.nr ?k 0
.di
.in 0
.ce 0
..
.de (c
.br
.if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
.if \\n(?n .nm
.di |c
..
.de )c
.if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
.br
.di
.if \n@>4 .tm >> .)c .l=\\n(.l .i=\\n(.i $i=\\n($i dl=\\n(dl
.ev 1
.ls 1
.in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
.if \n@>4 .tm -- .)c << .in .l=\\n(.l .i=\\n(.i dl=\\n(dl
.if \\n(?n \
.nm \\n(ln
.nf
.|c
.ec
.in
.ls
.if \\n(?n \
.nm
.ev
.rm |c
..
.de (q
.br
.@C 1
.fi
.sp \\n(qsu
.in +\\n(qiu
.xl -\\n(qiu
.sz \\n(qp
.if \\n(?n \
.nm \\n(ln
..
.de )q
.br
.if \\n(?n \
.nm
.ev
.sp \\n(qsu+\\n(.Lv-1v
.nr ?k 0
..
.de (l
.br
.sp \\n(bsu
.@D 3 \\$1 \\$2
.@M
.if \\n(?n \
.nm \\n(ln
.if '\*(.T'html' .sp \\n(bsu
..
.de )l
.br
.if \\n(?n \
.nm
.ev
.sp \\n(bsu+\\n(.Lv-1v
.nr ?k 0
..
.de EQ
.do if \\n[need_eo_h]>0 .do DEVTAG-EO-H
.do nr need_eo_h 0
.ec
.if "\*(.T"html" \
\{\
.do nr e-EQ-ll \\n(.l
.ll 1000n
.\}
.do HTML-IMAGE
.if !\\n(?e \
\{\
.if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
.@D 1 "\\$1" "\\$2"
.@C 2
.di |e
.\}
.ls 1
.in 0
.nf
..
.de EN
.br
.do HTML-IMAGE-END
.if "\*(.T"html" \
.do ll \\n[e-EQ-ll]u
.ie "\\$1"C" \
\{\
.nr ?e 1
.sp \\n(esu
.\}
.el \
\{\
.nr ?e 0
.di
.if \\n(dn \
.@q
.rm |e
.ev
.\}
..
.de @q
.nr _Q \\n(dnu
.ev
.sp \\n(esu
.if !"\\n(.z"" \!.ne \\n(_Qu
.ne \\n(_Qu+\n(.Vu
.@C 2
.if \\n(_d=1 \
.in (\\n(.lu+\\n($iu-\\n(dlu)/2u
.if \\n(_d=2 \
.in \\n($iu
.if \\n(_d=3 \
.in \\n(biu+\\n($iu
.if \\n(_d=4 \
.in 0
.mk _q
.if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
.if !"\\*(|p"" \
\{\
.rs
.sp (\\n(_Qu-\\n(.vu)/2u
.tl """\\*(|p"
.rt \\n(_qu
.\}
.if \\n(?n \
.nm \\n(ln
.|e
.if \\n(?n \
.nm
.sp |\\n(_qu+\\n(_Qu
.sp \\n(esu+\\n(.Lv-1v
.rr _q
.rr _Q
..
.de TS
.sp \\n(bsu
.if "\*(.T"html" \
\{\
.do nr e-TS-ll \\n(.l
.ll 1000n
.\}
.do HTML-IMAGE
.@C 1
.fi
.if "\\$1"H" \
\{\
.di |h
.nr ?T 1
.\}
.ls 1
.ch @f -(\\n(_bu+1v)
.if \\n(.p-\\n(_b-1v<=\\n(nl \
.ch @f \\n(nlu+\n(.Vu
..
.de TH
.nr T. 0
.T# 0
.if \\n(?n \!.nm
.di
.nr _T \\n(?T
.nr ?T 0
.ne \\n(dnu+1v
.nr ?T \\n(_T
.nr _i \\n(.i
.if \\n(?n .nm \\n(ln
.in 0
.|h
.in \\n(_iu
.rr _i
.mk #T
..
.de TE
.nr ?T 0
.ch @f -\\n(_bu
.if \\n(.p-\\n(_b<=\\n(nl \
.ch @f \\n(nlu+\n(.Vu
.ev
.do HTML-IMAGE-END
.if "\*(.T"html" \
.do ll \\n[e-TS-ll]u
.sp \\n(bsu+\\n(.Lv-1v
.re
..
.de T&
..
.mso refer-me.tmac
.de IS
.nr g7 \\n(.u
.ls 1
..
.de IF
.if \\n(g7 .fi
.ls
..
.de IE
.if \\n(g7 .fi
.ls
..
.de PS
.sp 0.3
.do HTML-IMAGE
.nr g7 \\$2
.in (u;\\n(.l-\\n(g7>?0/2)
.ne \\$1u
.nr g7 \\n(.u
.ls 1
.if \\n(?n \
\{\
.de PS_nm_check &&
.if \n@>4 .tm -- PS: \\\\$1 \\\\$2 .z=\\\\n(.z PS_nm_cnt=\\\\n[PS_nm_cnt]
.if `\\\\$2`init` \
.do nr PS_nm_cnt \\\\n[PS_nm_cnt]+1
.ie `\\\\n(.z`` \
\{\
.if `\\\\$1`suspend` \
.nm
.if `\\\\$1`resume` \
\{\
.nm \\\\n(ln
.do nr PS_nm_cnt \\\\n[PS_nm_cnt]-1
.do if !\\\\n[PS_nm_cnt] \
\{\
.do rm PS_nm_check
.do rr PS_nm_cnt
.\}
.\}
.\}
.el \!.PS_nm_check \\\\$1
.&&
.mk _q
.rs
\&\ 
.br
.rt \\n(_qu
.PS_nm_check suspend init
.\}
..
.de PE
.if \\n(?n .PS_nm_check resume
.ls
.in
.if \\n(g7 .fi
.do HTML-IMAGE-END
.sp .6
..
.de GS
.ie '\*(.T'html' \
\{\
.ie "\\$1"L" .do HTML-IMAGE-LEFT
.el .ie "\\$1"R" .do HTML-IMAGE-RIGHT
.el .do HTML-IMAGE
.\}
.el \
\{\
.nr g7 (\\n(.lu-\\n(g1u)/2u
.if "\\$1"L" .nr g7 \\n(.iu
.if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u
.in \\n(g7u
.nr g7 \\n(.u
.ls 1
.nf
.ne \\n(g2u
.\}
..
.de GE
.ie '\*(.T'html' .do HTML-IMAGE-END
.el \
\{\
.GF
.sp .6
.\}
..
.de GF
.ls
.in
.if \\n(g7 .fi
..
.de sz
.ps \\$1
.if \\n($r .@v
.vs \\n(.sp*\\n($vu/100u
..
.de @v
.if (1i>=240u)&(1p<=\\n($r)&(\\n($r<=4p) .nr $v \\n($r00/1p
..
.de @V
.if (1i>=240u)&(1p<=\\n($R)&(\\n($R<=4p) .nr $V \\n($R00/1p
..
.de @E
.ie \\n(.f<10 \
.ds _F \\n(.f
.el \
\{\
.ie \\n(.f<100&\n(.g \
.ds _F (\\n(.f
.el \
.ds _F P
.\}
..
.de r
.do check_need_title
.@E
.ft 1
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.de i
.do check_need_title
.@E
.ft 2
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.de b
.do check_need_title
.@E
.ft 3
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.de rb
.do check_need_title
.@E
.ft 3
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.de bi
.do check_need_title
.@E
.ft 4
.if \\n(.$ \&\\$1\f\\*(_F\\$2
.do check_need_title
..
.de u
\&\\$1\l'|0\(ul'\\$2
..
.if !\n(.g .ig
.de u
\Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2
..
.de q
\&\\*(lq\\$1\\*(rq\\$2
..
.de bx
.ie '\*(.T'html' \\$1\\$2
.el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
..
.de sm
\s-1\\$1\\s0\\$2
..
.de @F
.nr ~ \\$1
.if \\n~>0 \
.ft \\n~
.rr ~
..
.de (f
.ec
.if "\\n(.z"|f" .tm Line \\n(c. -- Invalid footnote nesting
.ie "\\n(.z"" \
\{\
.nr _D \\n(dn
.nr _0 1v+\\n(nlu
.ev 2
.nm
.da |f
.in 0
.xl \\n($lu-\\n(fuu
.@F \\n(ff
.sz \\n(fp
.vs \\n(.sp*\\n($Vu/100u
.if !\\n(?f \
\{\
.nr _b +1v
.$s
.\}
.br
.if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
\{\
.da
.bc
.if !\\n(?f \
.rm |f
.da |f
.in 0
.xl \\n($lu-\\n(fuu
.@F \\n(ff
.sz \\n(fp
.vs \\n(.sp*\\n($Vu/100u
.if !\\n(?f \
.$s
.br
.\}
.rr _0
.sp \\n(fsu
.nr ?f 1
.fi
.if !"\\$1"_" \
.ti \\n(fiu
.if \n@>2 .tm	<< (f $f=\\n($f
.\}
.el \
\{\
.ev 2
.nm
.in 0
.xl \\n($lu-\\n(fuu
.@F \\n(ff
.sz \\n(fp
.vs \\n(.sp*\\n($Vu/100u
.fi
\!.(f \\$1
\!.@N
.\}
..
.de @N
.ie "\\n(.z"" .nf
.el \!.@N
..
.de )f
.ie "\\n(.z"|f" \
\{\
.if \\n* \
.nr $f +1
.ds * \\*{\\n($f\\*}\k*
.nr * 0
.in 0
.da
.ev
.if \\n(_w<\\n(dl \
.nr _w \\n(dl
.nr _b +\\n(dn
.ch @f -\\n(_bu
.if \\n(.p-\\n(_b<=\\n(nl \
.ch @f \\n(nlu+\n(.Vu
.nr dn \\n(_D
.rr _D
.\}
.el \
\{\
.br
\!.)f
.ev
.\}
..
.@R ff
.if \n(ff<=0 \
.nr ff 1
.@R fp
.if \n(fp<=0 \
.nr fp 8
.de $s
\l'2i'
..
.de (d
.am |d )d
.sp \\n(bsu
..
.de )d
.if \\n# \
.nr $d +1
.ds # [\\n($d]\k#
.rr #
..
.de pd
.|d
.rm |d
.nr $d 1 1
.ds # [1]\k#
..
.nr _x 0 1
.do nr _xn 0
.af _x a
.de (x
.if \n@>4 .tm >> (x, .z=\\n(.z
.ds |X x
.if \\n(.$>0 \
.ds |X \\$1
.ie "\\n(.z"" \
.nr _z 0
.el \
.nr _z 1
.@\\n(_z
..
.de @0
.am %\\*(|X )x
.sp \\n(xsu
.ti -\\n(piu
..
.de @1
.if "\\n(_x"z" .nr _x 0
.de =\\n+(_x )x
..
.de )x
.if \n@>4 .tm >> )x, .z=\\n(.z
.ie "\\n(.z"" \
\{\
.ds |x \\n%
.if \\n(.$>0 \
.ds |x \\$1
.if "\\*(|x"_" \
.ig ..
.am %\\*(|X ..
.if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
.ti +\\n(xuu
\\\\a\\\\t\\$2\\*(|x
...
.rm |x
.rm |X
.\}
.el \
\{\
\!.(x \\*(|X
\!\\\\*(=\\n(_x\\\\
\!.)x \\$1 \\$2
\!.rm =\\n(_x
.\}
..
.de xp
.br
.@C 2
.ls 1
.vs \\n(.sp*\\n($Vu/100u
.fi
.in +\\n(piu
.ds |X x
.if \\n(.$>0 \
.ds |X \\$1
.xl -(\\n(xuu+\w'...'u)
.di |x
.%\\*(|X
.br
.di
.rm %\\*(|X
.xl \\n($lu
.rm |X
.ev
.nf
.in 0
.ta \\n(.lu-\\n(xuuR \\n(.luR
.|x
.fi
.in
.rm |x
..
.de (x-html
.nr _x +1
.do nr _xn +1
.do TAG "_x\\n[_x]
.br
.do di |x\\n[_xn]
.br
..
.de )x-html
.br
.di
..
.de xp-html
.do nr _xx 1
.br
.do ev xp-html-ev
.sp
.do ULS
.do while \\n[_xx]<=\\n[_xn] \
\{\
.br
.do unformat |x\\n[_xx]
.do di xp-html-div
.br
.ll 100i
.fi
.do |x\\n[_xx]
.br
.di
.do asciify xp-html-div
.do rm xp-html-as
.do as xp-html-as #
.do as xp-html-as _x\\n[_xx]
.ll
.LI
.do URL \\*[xp-html-as] "\\*[xp-html-div]
.do rm xp-html-as
.do nr _xx +1
.\}
.do ULE
.sp
.ev
..
.if '\*(.T'html' \
\{\
.rm (x
.do als (x (x-html
.rm )x
.do als )x )x-html
.rm xp
.do als xp xp-html
.\}
.de +c
.ep
.if \\n(?o:\\n(?a \
\{\
.bp
.rs
.ep
.\}
.nr ?C 1
.nr $f 1 1
.ds * \\*{1\\*}\k*
.if \\n(?R \
.pn 1
.bp
.in \\n($iu
.rs
.ie \\n(.$ \
.$c "\\$1"
.el \
.sp 3
..
.de ++
.nr _0 0
.if "\\$1"C" \
.nr _0 1
.if "\\$1"RC" \
.nr _0 11
.if "\\$1"A" \
.nr _0 2
.if "\\$1"RA" \
.nr _0 12
.if "\\$1"P" \
.nr _0 3
.if "\\$1"B" \
.nr _0 4
.if "\\$1"AB" \
.nr _0 5
.if \\n(_0=0 \
.tm Line \\n(c. -- Bad mode to .++
.nr ?R 0
.if \\n(_0>10 \
.\{
.nr ?R 1
.nr _0 -10
.\}
.nr ch 0 1
.if (\\n(_0=3):(\\n(_0=5) \
.pn 1
.if !\\n(_0=\\n(_M .if \\n(_M=3 \
.pn 1
.ep
.if \\n(_0=1 \
\{\
.af ch 1
.af % 1
.\}
.if \\n(_0=2 \
\{\
.af ch A
.af % 1
.\}
.if \\n(_0=3 \
.af % i
.if \\n(_0=4 \
.af % 1
.if \\n(_0=5 \
.af % 1
.if \\n(.$>1 \
.he \\$2
.nr _M \\n(_0
.rr _0
..
.de $c
.sz 12
.ft 3
.ce 1000
.if \\n(_M<3 \
.nr ch +1
.ie \\n(_M=1 CHAPTER\ \ \\n(ch
.el .if \\n(_M=2 APPENDIX\ \ \\n(ch
.if \w"\\$1" .sp 3-\\n(.L
.if \w"\\$1" \\$1
.if (\\n(_M<3):(\w"\\$1") \
.sp 4-\\n(.L
.ce 0
.ft
.sz
.ie \\n(_M=1 \
.$C Chapter \\n(ch "\\$1"
.el .if \\n(_M=2 \
.$C Appendix \\n(ch "\\$1"
..
.de tp
.hx
.bp
.br
.rs
.pn \\n%
..
.if \n(mo=1 .ds mo January
.if \n(mo=2 .ds mo February
.if \n(mo=3 .ds mo March
.if \n(mo=4 .ds mo April
.if \n(mo=5 .ds mo May
.if \n(mo=6 .ds mo June
.if \n(mo=7 .ds mo July
.if \n(mo=8 .ds mo August
.if \n(mo=9 .ds mo September
.if \n(mo=10 .ds mo October
.if \n(mo=11 .ds mo November
.if \n(mo=12 .ds mo December
.if \n(dw=1 .ds dw Sunday
.if \n(dw=2 .ds dw Monday
.if \n(dw=3 .ds dw Tuesday
.if \n(dw=4 .ds dw Wednesday
.if \n(dw=5 .ds dw Thursday
.if \n(dw=6 .ds dw Friday
.if \n(dw=7 .ds dw Saturday
.nr y2 \n(yr%100
.af y2 00
.nr y4 \n(yr+1900
.ds td \*(mo \n(dy, \n(y4
.rr x
.nr $v \n(.v00+\n(.sp-1/\n(.sp
.nr $V \n($v
.nr hm 4v
.nr tm 7v
.nr bm 6v
.nr fm 3v
.nr tf 3
.nr tp 10
.hy 14
.nr bi 4m
.nr pi 5n
.nr pf 1
.nr pp 10
.nr qi 4n
.nr qp -1
.nr ii 5n
.nr $m 1
.nr $s 4n
.nr sf 3
.nr sp 10
.nr ss 12p
.nr si 0
.@R 0x
.ds { \v'-0.4m'\x'\\n(0x=0*-0.2m'\s-3
.ds } \s0\v'0.4m'
.ds [ \*{
.ds ] \*}
.ds < \v'0.4m'\x'\\n(0x=0*0.2m'\s-3
.ds > \s0\v'-0.4m'
.ds - \(em
.@S |0
.@S |1
.@S |2
.@S |3
.@S $H
.@S $0
.@S $1
.@S $2
.@S $3
.@S $4
.@S $5
.@S $6
.@S $7
.@S $8
.@S $9
.@S ..
.@R po
.@R $0
.@R $i
.@R $p
.@R $r
.@R $R
.@R df
.@R so
.@R fu
.@R bt
.@R *
.@R ?a
.@R ?b
.@R ?C
.@R ?e
.@R ?H
.@R ?I
.@R ?n
.@R ?o
.@R ?R
.@R ?s
.@R ?T
.@R ?W
.@R ?w
.nr fi 0.3i
.nr _o \n(.o
.nr $b 3
.nr ps 0.35v
.if \n(ps<\n(.V .nr ps \n(.V
.nr bs \n(ps
.nr qs \n(ps
.nr zs 1v
.nr xs 0.2v
.nr xu 0.5i
.nr fs 0.2v
.nr es 0.5v
.if \n(es<\n(.V .nr es \n(.V
.wh 0 @h
.nr $l \n(.lu
.nr _L \n(.lu
.nr $c 1
.nr $f 1 1
.ds * \*{1\*}\k*
.nr $d 1 1
.ds # [1]\k#
.nr _M 1
.ds lq \(lq
.ds rq \(rq
.em @z
.ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
.ds #v 0.6m
.ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\(aa\h'|\\n_u'
.ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\(ga\h'|\\n_u'
.ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m)'\v'-\*(#v'\z.\h'0.2m'.\h'|\\n_u'\v'\*(#v'
.ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'^\h'|\\n_u'
.ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'~\h'|\\n_u'
.ds , \k_\h'-(\\n(.wu)',\h'|\\n_u'
.ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\s-4v\s0\v'\*(#v'\h'|\\n_u'
.ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\z\(de\v'0.4n'\h'|\\n_u'
.ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
.ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
.rm #h #v
.ll 6.0i
.lt 6.0i
.de @U
.tm The \\$1 macro has been removed from this version of the -me macros.
..
.de lo
.@U lo
..
.de th
.@U th
..
.de ac
.@U ac
..
